home *** CD-ROM | disk | FTP | other *** search
/ European High School Girl / European High School Girl.iso / pc / prg / shared.dxr / 02011.ls < prev    next >
Encoding:
Text File  |  1996-03-08  |  1.0 KB  |  43 lines
  1. global no_cat, framecnt, incrementv, m
  2.  
  3. on slideb
  4.   puppetSprite(11, 1)
  5.   set w to the height of sprite 10
  6.   set incrementv to w / 105
  7.   set m to the bottom of sprite 10
  8.   set the volume of sprite 20 to 123.92999999999999261
  9. end
  10.  
  11. on slideractivev ch
  12.   repeat while the stillDown
  13.     set newv to constrainV(10, mouseV())
  14.     set the locV of sprite ch to newv
  15.     set value to (m - newv) / incrementv
  16.   end repeat
  17.   set the volume of sprite 20 to value * 2.42999999999999972
  18. end
  19.  
  20. on continueautoplay
  21.   set framecnt to 1 + framecnt
  22.   go(marker(1))
  23.   set gcnt to value(getAt(no_cat, framecnt))
  24.   set the movieRate of sprite 20 to 0
  25.   set the movieTime of sprite 20 to gcnt
  26. end
  27.  
  28. on continues16
  29.   set framecnt to 1
  30.   go("S16ST")
  31.   set gcnt to value(getAt(no_cat, framecnt))
  32.   set the movieRate of sprite 20 to 0
  33.   set the movieTime of sprite 20 to gcnt
  34. end
  35.  
  36. on continues08
  37.   set framecnt to 1
  38.   go("S08ST")
  39.   set gcnt to value(getAt(no_cat, framecnt))
  40.   set the movieRate of sprite 20 to 0
  41.   set the movieTime of sprite 20 to gcnt
  42. end
  43.